home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)te.d64 / barb's boat.c (.txt) next >
Commodore BASIC  |  2007-02-04  |  6KB  |  229 lines
  1. 8 POKE 53281,0:POKE 53280,0
  2. 9 PRINT:PRINT:PRINT
  3. 10 PRINT"         .[144]"
  4. 11 PRINT"   .[144]        .[144]      [158][221] \[146][169]      ."
  5. 12 PRINT"  .[144]            .[144]   [158][221][223][146][144]       .[144]"
  6. 13 PRINT"           .[144]       [158][221] [223][146][144]"
  7. 14 PRINT"                  [169][146][158][221]  [223][146][144]         [158][209][144]"
  8. 15 PRINT"      .[144]          [169] [146][158][221]   [223][146][144]  .[144]"
  9. 16 PRINT"              .[144] [169]  [146][158][221]    [223][146][144]    .[144]"
  10. 17 PRINT"               [169]   [146][158][221]     [223][146][144]"
  11. 18 PRINT"   .[144]          [169]    [146][158][221]      [223][146][144]     .[144]"
  12. 19 PRINT"             [169]     [146][158][221]       [223][146][144]"
  13. 20 PRINT"      .[144]     [169][158]BARB'S[146][158][221] [158]BOAT   [223][146][144]"
  14. 21 PRINT"           [169]       [146][158][221]         [223][146][144]"
  15. 22 PRINT"          [169]        [146][158][221][223][146][197][197][197][197][197][197][197][197][197][144]  .[144]"
  16. 23 PRINT"         [169]     [158] [209] [209] [209] [209] [146]"
  17. 24 PRINT"       [223][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][146]"
  18. 25 PRINT"        [223]                     [146][169]"
  19. 26 PRINT"[196][196][196][196][196] [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196] [196][196][196][196][196][196]"
  20. 27 PRINT"[196][196][196][196][196][196] [196][196][196][196][196][196][196][196][196][196][196] [196][196][196][196][196][196][196][196][196] [196][196][196][196][196][196][196][196][196][196]"
  21. 28 PRINT"[196][196][196] [196][196][196][196][196][196][196][196][196][196] [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196] [196][196][196][196][196][196]"
  22. 30 PRINT:PRINT"            SMOOTH SAILING, EH?"
  23. 45 REM -REVTUN- AN ORIGINAL COMPOSITION BY D.RITTER
  24. 50 K=32
  25. 55 S=54272:DIMF(96):D=20
  26. 100 DATA37,77,56,0,1,1
  27. 105 DATA25,77,56,0,0,0
  28. 110 DATA37,77,56,0,2,0
  29. 115 DATA25,68,54,0,2,2
  30. 120 DATA37,65,53,0,1,1
  31. 125 DATA25,65,53,0,0,0
  32. 130 DATA37,65,53,0,0,0
  33. 135 DATA25,65,61,0,0,2
  34. 140 DATA39,78,61,0,1,1
  35. 145 DATA27,78,61,0,0,0
  36. 150 DATA39,78,61,0,2,0
  37. 155 DATA27,75,53,0,2,2
  38. 160 DATA39,70,54,0,1,1
  39. 165 DATA27,70,54,0,0,0
  40. 170 DATA39,70,54,0,0,0
  41. 175 DATA27,70,54,0,0,0
  42. 180 DATA44,72,63,0,1,1
  43. 185 DATA32,72,63,0,0,0
  44. 190 DATA44,72,63,0,2,0
  45. 195 DATA32,73,61,0,2,2
  46. 200 DATA44,75,60,0,1,1
  47. 205 DATA32,75,60,0,0,0
  48. 210 DATA44,75,60,0,0,0
  49. 215 DATA32,66,63,0,2,2
  50. 220 DATA37,68,63,0,1,1
  51. 225 DATA25,68,63,0,0,0
  52. 230 DATA37,68,63,0,0,0
  53. 235 DATA25,68,51,0,0,2
  54. 240 DATA37,65,61,0,1,1
  55. 245 DATA25,65,61,0,0,0
  56. 250 DATA37,65,61,0,0,0
  57. 255 DATA25,65,61,0,0,0
  58. 260 DATA65,65,46,1,2,2
  59. 265 DATA63,63,34,1,2,2
  60. 270 DATA61,61,46,1,2,2
  61. 275 DATA60,60,34,1,2,2
  62. 280 DATA58,58,46,1,2,2
  63. 285 DATA61,61,34,1,2,2
  64. 290 DATA66,66,46,1,2,2
  65. 295 DATA70,70,34,1,2,2
  66. 300 DATA63,63,44,1,2,2
  67. 305 DATA61,61,32,1,2,2
  68. 310 DATA60,60,44,1,2,2
  69. 315 DATA58,58,32,1,2,2
  70. 320 DATA56,56,44,1,2,2
  71. 325 DATA53,53,32,1,2,2
  72. 330 DATA63,63,44,1,2,2
  73. 335 DATA68,68,32,1,2,2
  74. 340 DATA61,61,42,1,2,2
  75. 345 DATA60,60,30,1,2,2
  76. 350 DATA58,58,42,1,2,2
  77. 355 DATA56,56,30,1,2,2
  78. 360 DATA54,54,42,1,2,2
  79. 365 DATA58,58,30,1,2,2
  80. 370 DATA61,61,42,1,2,2
  81. 375 DATA65,65,30,1,2,2
  82. 380 DATA63,63,44,1,2,2
  83. 385 DATA61,61,32,1,2,2
  84. 390 DATA60,60,44,1,2,2
  85. 395 DATA58,58,32,1,2,2
  86. 400 DATA56,56,44,1,2,2
  87. 405 DATA58,58,32,1,2,2
  88. 410 DATA60,60,44,1,2,2
  89. 415 DATA63,63,44,1,2,2
  90. 420 DATA65,65,46,1,2,2
  91. 425 DATA63,63,34,1,2,2
  92. 430 DATA61,61,46,1,2,2
  93. 435 DATA60,60,34,1,2,2
  94. 440 DATA58,58,46,1,2,2
  95. 445 DATA61,61,34,1,2,2
  96. 450 DATA66,66,46,1,2,2
  97. 455 DATA70,70,34,1,2,2
  98. 460 DATA63,63,44,1,2,2
  99. 465 DATA61,61,32,1,2,2
  100. 470 DATA60,60,44,1,2,2
  101. 475 DATA58,58,32,1,2,2
  102. 480 DATA56,56,44,1,2,2
  103. 485 DATA53,53,32,1,2,2
  104. 490 DATA63,63,44,1,2,2
  105. 495 DATA68,68,32,1,2,2
  106. 500 DATA61,61,42,1,2,2
  107. 505 DATA60,60,30,1,2,2
  108. 510 DATA58,58,42,1,2,2
  109. 515 DATA56,56,30,1,2,2
  110. 520 DATA54,54,42,1,2,2
  111. 525 DATA58,58,30,1,2,2
  112. 530 DATA61,61,42,1,2,2
  113. 535 DATA65,65,30,1,2,2
  114. 540 DATA63,63,44,1,2,2
  115. 545 DATA61,61,32,1,2,2
  116. 550 DATA60,60,44,1,2,2
  117. 555 DATA58,58,32,1,2,2
  118. 560 DATA56,56,44,1,1,1
  119. 565 DATA56,56,44,1,0,0
  120. 570 DATA56,56,44,1,0,0
  121. 575 DATA56,56,44,1,0,0
  122. 580 DATA37,77,56,0,1,1
  123. 585 DATA25,77,56,0,0,0
  124. 590 DATA37,77,56,0,2,0
  125. 595 DATA25,68,54,0,2,2
  126. 600 DATA37,65,53,0,1,1
  127. 605 DATA25,65,53,0,0,0
  128. 610 DATA37,65,53,0,0,0
  129. 615 DATA25,65,61,0,0,2
  130. 620 DATA39,78,61,0,1,1
  131. 625 DATA27,78,61,0,0,0
  132. 630 DATA39,78,61,0,2,0
  133. 635 DATA27,75,53,0,2,2
  134. 640 DATA39,70,54,0,1,1
  135. 645 DATA27,70,54,0,0,0
  136. 650 DATA39,70,54,0,0,0
  137. 655 DATA27,70,54,0,0,0
  138. 660 DATA44,72,63,0,1,1
  139. 665 DATA32,72,63,0,0,0
  140. 670 DATA44,72,63,0,2,0
  141. 675 DATA32,73,61,0,2,2
  142. 680 DATA44,75,60,0,1,1
  143. 685 DATA32,75,60,0,0,0
  144. 690 DATA44,75,60,0,0,0
  145. 695 DATA32,66,63,0,2,2
  146. 700 DATA37,68,63,0,1,1
  147. 705 DATA25,68,63,0,0,0
  148. 710 DATA37,68,63,0,0,0
  149. 715 DATA25,68,51,0,0,2
  150. 720 DATA37,65,61,0,1,1
  151. 725 DATA25,65,61,0,0,0
  152. 730 DATA37,65,61,0,0,0
  153. 735 DATA25,65,61,0,0,0
  154. 740 DATA99,99,99,1,2,2
  155. 9000 F1=253.18:FORI=1TO96:F(I)=F1*2^(1/12):F1=F(I):NEXT
  156. 9005 FORI=0TO28:POKES+I,0:NEXT
  157. 9010 W1=16:W2=16:W3=32:L=15:A1=1:A2=1:A3=1:D1=1:D2=1:D3=1:S1=15:S2=14:S3=15
  158. 9015 R1=12:R2=12:R3=12:GOTO9170
  159. 9020 IFK=32THENK=96 :GOTO9070
  160. 9025 IFK=96THENK=128:GOTO9080
  161. 9030 IFK=128THENK=160:RESTORE:GOTO9090
  162. 9035 IFK=160THENK=224:GOTO9100
  163. 9040 IFK=224THENK=257 :GOTO9110
  164. 9045 IFK=64THENK=64 :GOTO9120
  165. 9050 IFK=64THENK=64 :GOTO9130
  166. 9055 IFK=64THENK=64 :GOTO9140
  167. 9060 IFK=64THENK=64 :GOTO9150
  168. 9065 IFK=30THENK=64 :GOTO9160
  169. 9070 W1=64:W2=64:W3=32:L=15:A1=1:A2=1:A3=1:D1=1:D2=1:D3=1:S1=15:S2=15:S3=15
  170. 9075 R1=11:R2=11:R3=10:GOTO9170
  171. 9080 W1=16:W2=32:W3=32:L=15:A1=1:A2=1:A3=1:D1=1:D2=1:D3=1:S1=14:S2=14:S3=15
  172. 9085 R1=12:R2=12:R3=14:GOTO9170
  173. 9090 W1=16:W2=16:W3=64:L=15:A1=1:A2=1:A3=1:D1=1:D2=1:D3=1:S1=15:S2=15:S3=15
  174. 9095 R1=10:R2=10:R3=14:GOTO9170
  175. 9100 W1=32:W2=32:W3=64:L=15:A1=1:A2=1:A3=1:D1=1:D2=1:D3=1:S1=10:S2=10:S3=15
  176. 9105 R1=11:R2=11:R3=14:GOTO9170
  177. 9110 W1=16:W2=16:W3=32:L=15:A1=1:A2=1:A3=1:D1=1:D2=1:D3=1:S1=15:S2=15:S3=15
  178. 9115 R1=14:R2=12:R3=12:GOTO9170
  179. 9120 W1=16:W2=16:W3=32:L=15:A1=1:A2=1:A3=1:D1=1:D2=1:D3=1:S1=15:S2=15:S3=15
  180. 9125 R1=10:R2=10:R3=14:GOTO9170
  181. 9130 W1=16:W2=16:W3=32:L=15:A1=1:A2=1:A3=1:D1=1:D2=1:D3=1:S1=15:S2=15:S3=15
  182. 9135 R1=10:R2=10:R3=14:GOTO9170
  183. 9140 W1=16:W2=16:W3=32:L=15:A1=1:A2=1:A3=1:D1=1:D2=1:D3=1:S1=15:S2=15:S3=15
  184. 9145 R1=10:R2=10:R3=14:GOTO9170
  185. 9150 W1=16:W2=16:W3=32:L=15:A1=1:A2=1:A3=1:D1=1:D2=1:D3=1:S1=15:S2=15:S3=15
  186. 9155 R1=10:R2=10:R3=14:GOTO9170
  187. 9160 W1=64:W2=16:W3=32:L=15:A1=1:A2=1:A3=1:D1=1:D2=1:D3=1:S1=15:S2=15:S3=15
  188. 9165 R1=10:R2=10:R3=14:GOTO9170
  189. 9170 FORI=0TO2:T=I*7:POKES+3+T,8:POKES+2+T,0:NEXTI
  190. 9175 POKES+24,L
  191. 9180 X1=A1*16+D1:Y1=S1*16+R1
  192. 9185 POKES+5,X1:POKES+6,Y1
  193. 9190 POKES+4,8:POKES+4,0
  194. 9195 X2=A2*16+D2:Y2=S2*16+R2
  195. 9200 POKES+12,X2:POKES+13,Y2
  196. 9205 POKES+11,8:POKES+11,0
  197. 9210 X3=A3*16+D3:Y3=S3*16+R3
  198. 9215 POKES+19,X3:POKES+20,Y3
  199. 9220 POKES+18,8:POKES+18,0
  200. 9225 READA,B,C,P,Q,Q1
  201. 9230 IFA=99ORA=-1THEN9355
  202. 9235 IFP1=1THEN9260
  203. 9240 POKES,F(A)-256*INT(F(A)/256)
  204. 9245 POKES+1,F(A)/256
  205. 9250 POKES+4,W1+1
  206. 9255 IFP=1THEN9280
  207. 9260 IFQ=0THEN9280
  208. 9262 POKES+11,W2+1
  209. 9265 POKES+7,F(B)-256*INT(F(B)/256)
  210. 9270 POKES+8,F(B)/256
  211. 9280 IFQ1=0THEN9300
  212. 9282 POKES+18,W3+1
  213. 9285 POKES+14,F(C)-256*INT(F(C)/256)
  214. 9290 POKES+15,F(C)/256
  215. 9300 POKES+4,W1
  216. 9305 IFQ=1ORQ=0THEN9315
  217. 9310 POKES+11,W2
  218. 9315 IFQ1=1ORQ1=0THEN9325
  219. 9320 POKES+18,W3
  220. 9325 FORI=1TOD:NEXT
  221. 9330 TC=TC+1
  222. 9335 IFTC=KTHENGOTO9020
  223. 9340 IFP=1THENP1=1-P1:GOTO9225
  224. 9345 P1=0
  225. 9350 GOTO9225
  226. 9355 IFA=99THENFORI=1TO50*D:NEXT:FORI=0TO28:POKES+I,0:NEXT
  227. 9500 RUN
  228. 9999 END
  229.